Active Server Pages

Active Server Pages◦ ?

Eine Active Server Page (ASP) ist eine HTML-Seite mit eingebettetem Programmcode, der auf eine oder mehrere Datenbanken zugreift. Der Code wird in einer Skriptsprache wie VBScript oder in einer kompilierten und typisierten Programmiersprache wie C++ oder Java geschrieben. Der Code nutzt die Objektklassen des ASP-Objektmodells:

Application verwaltet globale Variablen, auf welche mehrere Benutzer zugreifen
Session verwaltet globale Variablen, auf welche mehrere Webseiten (engl. sessions) zugreifen
Request liest Clientdaten aus Formularen, URL's und Cookies
Response sendet Nachrichten an den Client (Browser)
Server nutzt serverseitige ActiveX-Controls (insbesondere ADO-Objekte).

Das folgende Beispiel kombiniert HTML und VBScript. HTML-Code ist blau, VBScript-Code rot und Kommentar grün. Von den fünf ASP-Objektklassen verwendet das Beispiel nur Server und Response. Kursiv angezeigte Anweisungen stammen aus dem Befehlsvorrat von ADO.

<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>

<HTML>
<HEAD><TITLE>Kundenanzeige.asp</TITLE></HEAD>
<BODY bgColor=#87ceeb>

'1 Benannte ADO-Konstanten und ADO-Datenbankverbindung (connection string) einlesen

<!--#include file="ADOKonstanten.asp"-->
<!--#include file="ADOVerbindung.asp"-->

<H1>Kundenanzeige</H1>

'2 Recordset (rst) erstellen

<%
Dim Verbindung
Dim rst

Set Verbindung = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

'ADOVerbindung ist eine Stringvariable mit DBMS-Typ, Pfad, Passwort aus ADOVerbindung.asp
Verbindung.Open ADOVerbindung
rst.Open "KUNDEN", Verbindung, adOpenForwardOnly, adLockReadOnly, adCmdTable

'3 Recordset durchlaufen und Sätze in einer Tabelle anzeigen

If rst.EOF Then
  Response.Write "Keine Kundensätze gefunden"
Else
%>
  'Tabellenkopf (Table Row aus Table Header cells)
  <TABLE BORDER=2>
    <TR>
      <TH>Kundennr</TH>
      <TH>Vorname</TH>
      <TH>Geschlechtsname</TH>
      <TH>Stadt</TH>
      <TH>Kanton</TH>
    </TR>
<%
  Do While Not rst.EOF
%>
    'Tabellenzeile (Table Row aus Table Data cells)
    <TR>
      <TD><%=rst("Kundennr")%></TD>
      <TD><%=rst("Vorname")%></TD>
      <TD><%=rst("Geschlechtsname")%></TD>
      <TD><%=rst("Stadt")%></TD>
      <TD><%=rst("Kanton")%></TD>
    </TR>
<%
    rst.MoveNext
  Loop
%>
  </TABLE>
<%
End If

Set rst = Nothing
Set Verbindung = Nothing
%>

<P>
'Hyperlink auf das Hauptmenü
<A HREF="AspMenu.asp">Zurück zum Menü</A>
</BODY>
</HTML>

ASP+ bzw. ASP.NET ist eine Erweiterung von ASP und lässt Sie mit VBScript oder einer Programmiersprache wie Visual Basic und C++ Active Server Pages erstellen, die eine Vielfalt vor- und benutzerdefinierter Steuerelemente zur Eingabe/Ausgabe und zur Datenanbindung nutzen.

Access auf dem Web